home *** CD-ROM | disk | FTP | other *** search
/ Amiga Tools 3 / Amiga Tools 3.iso / rexx / block2fold.raz < prev    next >
Encoding:
Text File  |  1994-12-09  |  332 b   |  12 lines
  1. /** $VER: Block2Fold.raz 1.0 (14.11.94)
  2.  **
  3.  ** Replie un bloc. Inutile car il suffit d'utiliser un menu. Il est juste
  4.  ** un exemple montrant la simplicité d'écriture de script avec AZur.
  5.  **/
  6.  
  7. OPTIONS RESULTS
  8.  
  9. GetNumBlocks; numblocks = RESULT
  10. IF (numblocks > 0) THEN Fold SET ON
  11. ELSE ReqMulti "Erreur" TEXT "Aucun bloc défini..."
  12.